home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / DEMOC6.EVT < prev    next >
Text File  |  1991-11-04  |  627b  |  21 lines
  1.    {-------------------------------------------------------------------
  2.    "TILE" DeskTop windows
  3.    -------------------------------------------------------------------}
  4. procedure heTile ;
  5. var
  6.    R                         : TRect ;
  7. begin
  8.    Desktop^.GetExtent ( R ) ;
  9.    Desktop^.Tile ( R ) ;
  10. end ;
  11.    {-------------------------------------------------------------------
  12.    "CASCADE" DeskTop windows
  13.    -------------------------------------------------------------------}
  14. procedure heCascade ;
  15. var
  16.    R                         : TRect ;
  17. begin
  18.    Desktop^.GetExtent ( R ) ;
  19.    Desktop^.Cascade ( R ) ;
  20. end ;
  21.